home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Hamsterball / HamsterballSetup.exe / {app} / Levels / MeshDetacher.ms < prev    next >
Text File  |  2002-11-18  |  1KB  |  58 lines
  1. fn get_object name = execute ("$" + name)
  2.  
  3. max create mode
  4. clearSelection()
  5. select $Level
  6. max modify mode
  7. --modPanel.setCurrentObject $Level.modifiers[#Final_Smooth]
  8. maxOps.CollapseNode $Level off
  9.  
  10. subobjectLevel = 0
  11. convertTo $ PolyMeshObject
  12. subobjectLevel = 4
  13. modPanel.setCurrentObject $Level
  14.  
  15. for subobject = 1 to 1000 do
  16. (
  17.     namestring= "subobject" + subobject as string
  18.  
  19.     mymaterial=$.material[subobject]
  20.     
  21.     $.selectByMaterial subobject
  22.     faces=polyop.getFaceSelection $
  23.     
  24.     if faces.count > 0 then 
  25.     (
  26.         created=polyop.detachfaces $ faces asNode:true name:namestring
  27.         
  28.         max create mode
  29.         clearSelection()
  30.         
  31.         select (get_object namestring)
  32.         
  33.         addModifier $ (Smooth autosmooth:true threshold:50)
  34.         
  35.         
  36.         
  37.         --
  38.         -- Okay, we wanna add a bunch of slice modifiers to chop up the scene 
  39.         -- in a grid.  How do I get control of that?
  40.         --
  41.         
  42.         
  43.         subobjectLevel = 4
  44.         $.material=mymaterial
  45.         
  46.         select $Level
  47.         max modify mode
  48.         )
  49.         
  50.     else exit
  51. )
  52.  
  53. delete $Level
  54.  
  55. --select $subobject1
  56. --$.material="Purple"
  57.  
  58.